Data Documents/inc. 


q r ~ 7 


LABEL OOOQOQOOOOPRINTEROOI75100CC EX OBVECT/REAUSFILE SOURCEF ILE=SYMBUL/USERS ENDS 


OBYECT /READ 


Data Documents/inc. 


6.6 686 @ e e ® eo °® @ @ e e @ 


| Fe Te te TOIT IOI IO III III II III IDI GIGI IDICIGIOIGIGIOI OGIO IO i ict 00010000 
% USER/CANDE SOURCE FILE 12770, %001-00010100 
Sep MOMMENT £8 TITLES 8 5500/85700 MARK XIV SYSTEM RELEASE lw dlogte 
(1 * FILE ID% SYMBOL/USER TAPE ID% SYMBUL2/FILEOOO * 00010111 
2 * THIS MATERIAL IS PROPRIETARY TG BURKOUGHS CORPORATION « 00010312 
Geese tet Sat .* AND TS NOT TO BF REPRODUCE Ds USEDe OR DISCLOSED ok. 90010113. 
: * EXCEPT IN ACCURDANCE WITH FROGRAM LICENSE OR UPON * 00010114 
| * WRITTEN AUTHORIZATION UF THE PATENT DIVISION OF * 00010115 
ea _* BURROUGHS CORPORATION» DETROIT» MICHIGAN 46232 = 
z * * 00010117 
is “ COPYRIGHT (C) 1971% 1972 BURROUGHS CORPORATION * 00010118 
lee ass st ean oe od AB320206  AARR665? ONT ete ee Oe Sete ade OO I04 19. 
iu II HIER RRA RHONA RAKE REE RA HEHE HEH HOQUIOZO| 
ie COMMENT %001"00010300 
jg RC i ae PROGRAM CREATES THE FILE "USERS/CANDE"™ WHICH JS USED BY —hOO* O00 0400 
a CANDE/TSHARER TO OBTAIN THE SECURITY AND ACCOUNTING INFORMATION %001#00010500 
a ASSOCIATED WITH EACH USER, %001"00010600 
arene THE FILE IS. COMPRISED OF THREE SECTIUNSS ~ 01200010700 | 
16 A) SEGMENT ZERO» WHICH CONTAINS THE RECORD CUUN] ANC DATE OF #001=00010800 
"7 LAST ALTERATICN OF THE FILE+ THE NEXT AVAILABLE SEGMENT %2001*00010900 
10 ne ie rae ee POSITION 1S KEPT IN WORD 1 OF SEGMENT ZERU, ANO THE DATE OF 20O01-00011000..... 
oy LAST ALTERATICN IS KEPT IN WURKD 2 OF SEGMENT ZERO, %001700011400 
2 B) THE INITIAL SCRAMBLE TABLE SECTION» LOCATED IN SEGMENTS %001"00011200 
ee eee eee OL THROUGH 29 OF THE FILE, FACH SCRAMBLE SEGMENT CONSISTS  %001"00011300 . ...... 
22 OF 15 TWO WORD ENTRIES» THE FIRST WORD CONTAINING THE USERCODE 00011400 
pa AND THE (33215) FIELD OF THE SECOND wORD CONTAINING THE 2001700011500 
PN ae a ee RELATIVE DISK ADORESS OF THE SECURITY SEGMENT ASSOCIATED  %001-00011600 
bs WITH THAT USERCODE. THE (18%15) FIELD UF WORD 4 OF EACH %001700011700 
26 SCRAMBLE SEGMENT IS A LINK TG THE NEXT SCRAMBLE SEGMENT. %001"00011800 
i Mee WHEN AN ATTEMPT IS MADE TO ADD A NEW USERCODE TO THE SCRAMBLE oOo0liegoo 
BLOCK SECTION» AND THaT BLOCK IS ALREADY FULL ThE USER CANDE 0c012000 
PROGRAM wILL CREATE A NEW SCRAMBLE BLOCK IN THE USERS/CANDE %¥001"00012100 
2 FILE? AND WILL Peace THE LOCATION OF THE LINK K_IN ™00012200 
; . (18815) FIELD OF woORD 1 OF THE CURRENTLY ACCESSED BLOCKe %001=00012300 
2 THE €18#15) FIELD OF WORD 29 OF EACH LINKED SCRAMBLE BLOCK 15 00012400 
: me ae re USED AS A BACK LINK TO THE PREVIOUS SCRAMBLE BLOCK FUR  4001"00012500 ss 
be PURPOSES OF FILE MAINTENANCE, %001"°000132600 
fe C) THE BODY OF TRE USERS/CANDE FILes» LOCATED IN SEGMENTS 30 AND%001"00012700 
s ee eee BEYOND. THIS SECTION OF THE FILE IS COMPRISED OF BUTH LINKED 00012800 _ 
yf SCRAMBLE BLOCKS AND INDIVIDUAL USERS SECURITY RECORDS. %001"°00012900 
al WORD 29 OF EACH SECURITY RECORD CONTAINS A BACK LINK TO THE %001"00013000 
fp —————~---~-- BE RABBLE. BLOCK WHICH POINTS TO THAT T_ RECORD, THE €33215) FIELD 00013100 _ 
4 OF WORD 29 POINTS YO THE RELATIVE DISK ADURESS OF THE SCRAMBLE 00013200 
isi BLOCK» AND THE [18215] FIELD POINTS TO THE WORD LOCATION OF %001°00013300 
nee ore _THE USERCODE WITHIN THE SCRAMBLE BLOCK. £001"00013400 
i THE SIGN BIT CF WORD 29 OF EACH OF THESE SEGMENTS IS USED TO%001"00013500 
INDICATE WHETHER THE SEGMENT IS A- LINKED SCRAMBLE BLOCKs OR %001"00013600 


A USERS SECURITY RECORD. THE SIGN BYT IS ON WHEN THE SEGMENT 00013700 | 


TS A SCRAMBLE BLOCK» AND IT 1S OFF WHEN THE SEGMENT IS A %001=00013800 
USERS SECURITY RECORD. %001"00013900 
THE PROCEDURES "READUSER" AND "REMUVEUSER" ARE EES PONS IBLE FR 0A OOG 
CREATING AND 7 OR ALTERING THE LINKS ASSOCIATED WITH THE VARIOUS 00100014100 
SECTIONS OF THE FILE. ie %001*00014200 
IND Ot a a ee ie OOTSOOUTOIOO. 


BEGIN REAL COMMON; #001*00014400 
FILE USERS DISK RANOCM "USERS"*"CANDE” (1%30)3 %001=00014500 a 
FILE ONE Chee et ep gD ee — €001"00014600 raat s 
FILE LINE 2015)3 %001*00014700 


FILE DSK DISK SERIAL (20130) ¢2¢30*300)3 % SCRATCH FAIbe coe SORT %001700014800 
RAY TABLE sUSER*ORTIONS(Os 301s 


4001" 00014900 


=: @ q 
ARRAY CMPSCLO#L1)*VRBSL0860]3 %001=00015000 
oe. SAVE ARRAY ACO#16}»BL015); %001*00015100 q 
Spee TNIEGER. TABLELOCAUSRINDXeAPTReAQS ee eee en meee mre een {bY by! Yci' i bs) 10 0 eee Batata tect iat, 
cs REAL USERCODEsUSERLOC» WORDS %001°00015300 i 
@ . REAL IsKsNEXTOPENsCOUNT*s TCOUNTS %001*00015400 21@ 
joven BOOLEAN. FIRSTCARDsUSERPRESENTsOPTIONSRUILTsOLLARCAROsFOUND*ALTERED: 000jss00.. " 3 
4 LABEL NEXT»sEOF »sCUMPILERS » VERBS} %001"00015600 ‘le 
a SWITCH FORMAT FM ts #001"00015700 : 
tees adie & MERA EBAD, <SCURD SM) g cone! ee ew ele, aang Ps eam een OOP OOOL5 800. a Septet ees td tk ON SS ae 5 6 
: CNERR#S NEW MUST BE FIRST CARD,")» %001700015900 l@ 
@ : (MERRIQUOTES REQD AROUND PARAMETERS ,")> ‘ %001"00016000 a 
“Lo ERR EUNKNOWN OPTION IN DLHIS CARVe™)s aaa won OS OL9O0016400 pa etadl ehn st See een ete ° 
C"ERR? UNRECOGNIZABLE COMPILER NAMEN), 4001700016200 ie 
@'. ("ERR UNRECOGNIZABLE VERB NAME ")3 %001"00016300 ‘ 
Mid Casi, —DEEINE. 0 LEFTARROW Oe meme siteeecm ten nieee tate S POO LM ODOT GWE DS. cic us ecu " 
3 DEFINE NUMOFCOMPILERS = 1143 8001"00016500 3 
@ , DEFINE NUMOF VERBS 2 49K; 00016600 @ 
as Be DEFINE... USERWORD 0 = USERC AMR gots nnorszo0 ee eRe ee . 
Us DEFINE PASSWORD = USERL 2) a3 %001°00016800 
a ’ DEFINE CHARGE WCRU = USER( 3) a3 %001°00016900 
Wh——————---DEFINE 0... USERNAME 0 = USER(4) #3) ¢ AND 5,” Stine SO0L=OO017000:..- 2 
i DEFINE PHONE WORD = USERLOI] #3 800100017100 
@» DEFINE TIMEWORD = USERL7I14&3 %001"00017200 
ay DEF ING. AC OMPILERWORD os USER(BIHR —_-OO1"00017300.. 
3} DEFINE VERBWORD = USERL9]#3 & aND USERLI1I0) %001°00017400 
@» DEF INE OPTIONBITS = USERCIIJ#@3 ® SEI/ RESET UPTYUNS %001700017500 
AA So DEP INE MONITURNAME. = USERCL2)#3. 4 MONITOR FILE NAME 2001=00017600 _ 
25) DEFINE LINKWORD = USER[29)43 %001"00017700 
@ « DEFINE MATCHCMATCH1 »MATCH2)= %001=00017800 
a | nr ~~, LF. REALCBOOLFANCMATCHL) £QV BOOLEAN(MATCH2) )SREAL(NOT FALSE) THENAS OQ0L7900 __ ” 
3 28 TE IGG U EIEIO AIRE HEH RHA HEHE EER ERA ERR AHEROOULBOUC 
'@r STREAM PROCEDURE MOWE(N®AsB)3 VALUE N3 %001°00014100 
8 i BEGIN S132A3 Diisas DSt= N wOSs ENDS AG01"00018200 2 
= 31 KOREA RNA ANTENNAE EEN EET EHNA HEHE EEHREN EERE RE RARER EHHHEOOULEIOO 
s@» PROCEDURE PRINTS %001"00018400 
Paes » BAEEECRECUIMECBUUUUCUEOCOCUUUOCUUCUNO UU HUUUUN risa ei eiennineneneee0Q018500 if 
4 BEGIN LABEL MAPsEXTT; - %001°00018600 
@ «= FORMAT NUMOFUSERS(16s" USERS IN USERS/CANDE FILE"/,)> %001*00018700 
aE _— TABLEMAPP(X4Ge"e**SCRA MBLE TABLE MAP##*",yx3eC/)—5 Ate cisienecas eM OOLFOOOTEBOO: oc 
a USERSRECORDS( X53." eee USERS RECORDS wae"/) 5 400100018900 


eo” CEE OIE OEE EERE w CREM S HERA EHR HEHHOOULIOO 
_—_— STREAM PROCEDURE TABLEMAP(TABLEsA)? : 

Ay) JURE CS OCIS IUIIO GIOTTO SOI KRHA RHE wR HEH HEREOOOLIZ00 
aD BEGIN %001*00019300 

hs SIPSTABLES Olisae ee en 4001900019400 | 
1SCOSt=BL iT" "3 SleeSye ys IF SC NEG "O" THEN 2001700019500 

BEGIN Dl tsDle73 DSte7CHRs END ELSE SIseSI+7; %001%00019600 

~SI¢RST4a)3 een ne Nee eet Se ee -—--__ 4904"00019700 


“END STREAW PROCEDURE TABLEWAPD 


%001"00019800 
* ween 00019900 


_ QLVSAR DSSeaLite "5 
STi2uSERS STrsSy+o 5 


w*#ee 00020100 
400100020200 
%001"00020300 


2001"00020000 


anne BOOLBOONI9ION 


3&4 USERCUDE (1) 


00020400 


SIt2SI4 43 OS:=7 CHR} OSss_it™ "3 3% PASSWORDU (2) 2001700020500 
——-SUsSI+15 0St87 CHRs OStSLIT" "5 % CHARGEWURD (3) _ ¥001"00020600 
SIteSI413 OSt*15CHRS OSt=LIT™ "3 %& USERNAME (4) (5) %001=00020700 
SItaSI+13 OSta7 CHRS DSH=LIT"™ "3 & PHONEWGRD (6) %001"°00020800 
SLSSSI+43 24¢1F SB THEN DS'tSLIT"1" ELSE DS#SLIT*O"S SKIP _SB)3%001=00020900 
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2001800029800 


Acai RI IONIC IIR ICICI IG IOI IC IDOIU Edin ion ion i ton tok i kien 600026100 


PROCEQURE OUTPT(BsA)s VALVE B3 BUOLEAN BJ ARRAY alO}S 2% SORT QUTPUT 00926200 


@ 
DS*=LIT™ "3 ¥ TIMEWORD (7) %001"*00021000 
e. SKIP SBs SviteDrs OF sLOC Xs & LANGUAGEWURD (8) %#001"°000¢1100 
Nes ae z NUMOFCOMPILERSCIF SB THEN OSSSLIT"1" EL St DSt=eLIT"0"% SKIP SB)s 00021200 .. 
( DIt2SVis SLseCMPS3 SItsS1+93 SV2SsST3 SIteLOc x3 %001"00021 300 
@» NUMOFCOMPILERS(SV1itsSI3 %001"00021400 
oe ae IF SC3"1" THEN & RESTRICTED COMPITLER ce eee ene wh 0100021506. 
ia BEGIN *#001"00021600 
@ : SIt=SV2SDSISECHRISTI=S[+4s0SPS2CHRIDSSELIT™ “"ZSSTtEST+15SV288ST5 00021700 
i Snare ECT wef ELIS? cp taeccasaavinsnstasee— ee Pc Ga a ou pcs asses ch pe sc essa apd et ere oe gna en cites a ODL OOOO LLB OO case. 
i ELSE %001"00021900 
@ : BEGIN #001*00022000 
i b—-———--- oe ee  SUPESV]I STPeSl¢as SVAtESTs OL O0022100 
10 END$ %001°00022200 
r au SItsSvis SiltsSJ41)3 © 2001*00022300 
wo END STREAM PROCEDURE REFURM]S PoE Saar _8001"00022400 
3 Rake ketene eee eee eee hk keke kee eee O0022500 
@ « BOOLEAN STREAM PROCEDURE REF ORM2(VERBWORD*» As VRBSeSKP)3 VALUE SKP3 00022600 
5) Te or eee Sie ee ie ie ee tO EERE REE EEA ER REE EHH OONZ2700 | 
18 BEGIN LOCAL SV1»SV2sdsYoXx; %001700022800 
@” DItsAs OSSeBLIT" "$ SITssAs DStS14wDS3 &% BLANK aA" %001" 00022900 
MU Peccace _ SI#SVERBWORDS SKIP SB3 SKIP SKP Sos DvsslOe xs 8001"00023000 | 
i9 20CIF SB THEN DStSLIT"1" ELSE DStsLIT"O"S SKIP SB)3 ¥ DECODE %001-00023100 
e~ SyesVRBSsF Sys=Sy49s SVOesSys SLsslOc xs Oypesas *001"00023200 
teat reas 2O(SVisaSpi. SDsede ee eae aM De RRO renner ene eriome: L0E 3 KYo To ok ee Vols Reema 
f IF SC=4" THEN & RESTRICTED VeRB *001*000234C0 
@»* BEGIN %001°00023500 
ena eee SLIesvas OSt=5CHRs STisSt+ 3s OStSL 17" "3 Svasesls TALLY 3343 00023600... 
py END %001*00023700 
i een ? %001- 00023800 
Stein ee Se Sy at sat ae Sr se to te ee OO OOS. . 
a SIs2Sv2s Sls=Sl+8s SV2s2S13 #001° TUELYT Ce 
@ END3 %001=00024100 
Diese ens tee oO ne mW Lp eS i fp noe eae Soe e ae al 8a SO Ra ee ater __ ¥001*00024200 
y REFORM2tsTALLY¥3 . %001"00024300 
eo ENO STREAM PROCEDURE REFORM23 %001=00024400 
ST III ICICI ITO IOIIOIISIUIOIOIOIUIUIIGUIDIGIOGOIUIOICIUIOING ICO OiGi iio idk tiie #4 00024500 
pa BOOLEAN PROCEDURE INPUTCA)S aRRAY ACLO]3 y% SORT INPUT ROUTINE %001~00024600 
@» TOI III IIIT ICI III IIOISISIDIDIIGISISI III OIRO SIG i inten iciciniee© 90024700 
; IR NOT _ CINPUTPECCOUNT?=COUNT+1) GTR TCOUNT) THEN 
‘ BEGIN *001=00024900 
@ + IF CUSRINDXS*USRINDX+2) GTR 28 THEN % GET ANUTHER SEGMENT %001"00025000 
: ete: Oe SE GN act a el hl Ee oe se tg eg __%001"00025400. 
C READ(DSKs 30esUSER(*))3 %001°00025200 
@« USRINDX t= 03 %001"00025306 
| ee END3 . 001"00025400... 
3 MOVE C2#USERCUSRINOX]» ALO] )3° £ TRANSFER 2 wOS FROM SEGMENT 2001"00025500 
@ END %001*00025600 
i soe eI OS BS ste i oe oe et Sas a te i te el OO OU 2S 7 002k... 
— BEGIN %001=00025800 
er REWIND(CDSK)4 USRINDX!t==™23 2001700025900 
pi ccc rac SAND Da rl es el OO OO at 
@ 
@ 
@ 
® 


IF B THEN ® LAST RECORD %001*00026400 
BEGIN %001*00026500 
WRITECDOSKe 30/USERL #123 ¥ WRITE REMAINCER UF SEGMENT. .. 001"00026600 
REWINDCDSK)3 %001*00026700 
ENO %001=00026800 

sefnrsiaieae) 30: | Seo USO Seon eRe ORES Set renee eS NG ea POO eee ee an 90100026900 


a EEA Re a ik ek RK Nk ek eee AEE HWOI00Z6I00 LU 
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eo, 
BEGIN %001"00027000 
] IF CUSRINDXtSUSRINDX*+2) GTR 28 THEN & WRITE ANOTHER SEGMENT %001"00027100 
NG tts toast, Sr cic wlae SEG TING tee a i gla cn ae ess ea shui un iglan ets UOT MOOV EE 200.228. 
(| WRITE COSKs S3OsUSERL#J)3 ¥001"00027300 
eo. | USRINDX t= 03 %001*00027400 
1 eG ieee ie icon das SENDS ax 2 ota cae : sn BOOLMOOOZ I SOO oe cece ween 
4 ~ MOVEC 2s ALOJ*sUSERCLUSRINDX])3 % TRANSFER 2 WUS TO SEGMENT %001700027600 
@: END PROCEDURES 4001"00027700 
: eee ere FoR IOI ICICI IOI IOI III I IUIIUIGOI COIR I IOI i ti tie 600027800 00 
ee BOOLEAN STREAM PROCEDURE CMPCA,B)s & SORT COMPARISON %001=00027900 
@; een ee ee en ree oe 
pe . BEGIN. Sites oan MeL ls tind oh REG alta ieee in cee ah oe OOO SRP OO A wasn ne cele tue 
10 SItsA3 SI1s=SI+13 Dltsa3 Olt=D1+43 %001"00028200 
Y OB IF 7SC LEQ DO THEN TALLYt=13 %#001*00028300 
_——— so TIF a taal ssa ase BS rt Tet ie th hen Sten Le IL MOUS ALOU: y ius. 
END STREAM PROCEDURE CMP3 %001°00028500 
e}. Bo IIIS OUIIOOIG I GI III Rok aio ii iio tick nett #00028600 
5 ___......._ BOOLEAN PROCEOURE COMP(A,B)3 ARRAY As BLO)s COMPS=CMP(AsB)3 g001"00028700 _—s«_—s‘—c.. 
"6 EP Creer ra eer Oe reer Ir enty Srey Pe hrat pe rE Rise api nan NENT TET TTL 
eV PROCEDURE HIVALUECA)S ARRAY ALOJS ACOJs=3"1Lalalalatatas 00028900 
eee gl NARA OAE SRS ES URE SERA A WARES ASO OW NRE EAR eR ERAN Ree eae aN WOOO 29000 ol Suu 
TCOUNT 82 OF USRINDX $= "23 [LtsTIMEC5S)3 %001"00029100 
@ | I ts "0/00/00" g reitadtit) g IL18824%842) g 13683681273. %001*00029410 
_ WRITECLINGE sTABLEMAPPsI)3 WRITECLINECDBLJ)s —s_" a  90L900029200 
FOR TABLELOC $= 3 STEP 1 UNTIL 29 DO &% GET SCRAMGLE SEGMENTS %4001"00029300 
e BEGIN %0U1*00029400 
2 eee _REAQCUSERS(TABLELUC)s 30s TABLEL*I1)35 vente cmeein oe AOOL" 00029500. | 
“MAPLE TABLEMAPCTABLEsA)3 % PRINT SCRAMBLE. TABLE CONTENTS %001"00029600 
@ WRITECLINES 159 AL #13 %001"00029700 
ee ROR. LO STEP 2 UNTIL 28 00 IF TABLECI)] NEG O THEN & VALID USER 00029800... 
BEGIN %001=000z29900 
@ TCOUNT $= TCCUNT + 13 % COUNT THIS USERCODE #001"00030000 
fe el FOCUS RIND ESUSRINDX42) GTR 28 THEN 2 | ARATE OUT -IHLS SEGMENT 00030100 
iw BEGIN %001"00030200 
@» WRITECOSK» 30eUSERE¥))3 %001=00030300 
Faget sce ctl os atari 8 We OPE no) fee ae lee a Seto ue Abit tS BE OOTMOOOINAOO), U2. 9.404.005 
oa END; %4001*00030500 
@» MOVE (2eTABLE(IJ»USERCUSRINUA])4 & TRANSFER TO USER ARRAY %001"%00030600 
Mid celles. hu ED le oO OR SY fener, crc ee SAOOLPO003F0 706) no 
7 IF CI#sTABLEC1].018215]) GIR O THEN % LINK TO NEXT SEGMENT %001"00030800 
oe BEGIN %001"00030900 
ae Ric arti .. READCUSERSE I) ,30-TABLEC*1)3 % READ LINKED SEGMENT ——s.—s ¥OOL@OOOI1000 
i GO TO MAP} %001*00031100 
@. ENDS & IF LINKED SEGMENT %¥001"00031200 
L_______._____WRITECLINE) % SPACE BETMEEN LINKED SEGMENTS %001"00031300 
END TABLELOC LOOPS %001*00031400 
@ WRITECDSKs 300USERC#J)3.% WRITE REMAINDER OF SEGMENT - #001%00031500 
———--WRITECLINE »NUMOFUSERS»TCOUNT)3 ets oh Peet sl oe ts a Oe MOONS LOO0 mo cose als 
REWINDCOSK)# COUNT $* o8 USRINDX t= "23 % SET UP FOR SORT %001°00031700 
@ IF TCOUNT=0 THEN GC TO EXITs ¥ EMPTY FILE %001*00031800 
_---SORTCQUTPT»INPUTsCeHIVALUEsCONPe224000)s ON O00T1900 =— 
COUNT 8® 03 ¥001"00032000 
e WRTTECLINE CPAGE 93 WRITECLINECOBLI)3 WRITECLINEsUSERSRECORDS)3 %001*00032100 
_.._ WHILE COUNT LSS TCOUNT 0@ Mie sIe catia = %001"00032200 : 
BEGIN %001"00032300 
@ READCDSKs 30-USER(*])3 % READ NEXT SEGMENT %001"00032400 
_FOR 1320 STEP 2 WHILE I LSS 29 ANDO COUNT LOS TCOUNT 00 #001"00032500 | 
BEGIN %001"00032600. 
@; REAOCUSERSCUSERE 1 413,033815))-30,TABLEC*J)3 % GET USERS SGMNT 00032700 
_ REFORMYCTABLE PAs CMPS)S WRITECLINEs 15sAL*))3 _._ *001"00032800 
@ 
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@ & 
IF REFORM2(TABLELC9J]»AsVRBSLCOJ], 0) THEN WRITECLINES 15 AL%J)3 00032900 
€ IF REFORM2(TABLE(9] * Aas VRBSL20] 520) THEN WRITECLINE® 150 AC #3 00033000 @ 
On ate tur IF REFORM2CTABLECO sae vVRBSL4Y0],40) THEN WRITECLINE2 159 AC#))3 00033400 Pn eee 
fh WRITECLINECOBLI)3 4001700033200 
@: COUNT !& GOUNT + 13 %001°00033300 1@ 
aie Mae 0 END 1 LOOPS. cove emcee on wmeses a $901" 00033400 rere e 3 
4 END COUNT LOOP3 4001200033500 4 
ee: EXIT: %001"000336C0 |e 
tho CL OSECOSK)S WRITECLINECPAGEJ)S Oy phe ta es See ee ee _ 8001 "00033700. Suga dae 6 
Y ENO PROCEDURE PRINTS %4001*00033800 , 
e 8 2 ie dete eI III TOI III IG OI GIG GiGi ini ick inks toi ice 00033900 /@ 
SU STREAM PROCEDURE BLANKCAsN)2 VALUE NZ OJ Ot OOOTHOOO == 9 
ia Ba ie II III III TOI II IOI III III I IOI IOI I tlio eiicioicicinke 000394100 10 
eo" BEGIN %001*00034200 "@ 
Fe tO cay DES AD DOPE RTT ON. SLAPS 2 DSP EN WOS 8s odo ee in BOOTH 00030300. 8 2 
be DItsAs DStaLiTwO"; & AVOID FLAG BIT ERRORS %001*00034400 a 
@: END STREAM BLANKS %001*00034500 @ 
Oe ARR IGIIOII IG IORI IGOR IGOR IOI IO iia tO JOH th a de fei te tte ete tok ee tee ee te OOO FUBOO fete 1 
is STREAM PROCEDURE CLEARCA#NYS VALUE N3 4V01°00034700 kg 
@” Re ee ae eee er een nero eee 1@ 
Mi tet ee A BEGIN: iid istics LOM tas Tt 8s, Sel lat tonne Coe et ate ne OO Le OO IA O0G eb oa t he Teac eee pee has oe ar aee.|8 
48 DIt=A3” “pSisg LIT “"0000"5 S1'FA; OSt=N WOS; %2001*00035000 2 
@» END CLEARS 2001"00035100 @ 
PO RNR ae OI fe Ot I TOA a iO NOI IOI OI I iO te tO IIIT ka i te de ie te ee tie ak de de te ete ea 00352000 0 | IR Ia ts aa Oe a\ 
2 STREAM PROCEDURE BUILOTIMEWORDCWeCAnD D3 %001-00035300 : 
& Fo eee Bee IOI I III IOI IIIS II IOI I IOI IDI III ICG oink 400035400 21@ 
tay stems <0 ER RIND 8 A cS, costes ie Dh SE oR oa UR ol Neti CER cate hated Oe Oat eek eka oot OOS OOO PS 500i. on. 5 petectan te Ree = ee 24 
Drssws OSt=4 LIT "QO0O"S STtsCARDS #001700035600 e 
e MOCIF SC NEQ """ TREN ELSE JUMP UTS Sr1saS]+1)3 400100035700 21@ 
nn DL 8 ST+t13 % SKIP " CHARe i OIF OOO RS BOO 2 
24cIF SC = "41" THEN DSsSSSET ELSE USt=RESET3 =S14+1)3 #001°00035900 bas 
e@ END BUILD TIME WCRODS %001=00036000 21@ 
ce BIOTIC OIUIIOICIIOIUI TOU OIIUIUIOIE SUI OUIUIDIOi etic itor ion ie 00036400 00 iy 
BOOLEAN STREAM PROCEDURE | DOLLARCA)S %001"00036200 
& BEGIN %001°00036300 a ® 
SItsAs TF SC = "S$" THEN TALLY2523 DOLLARS STALL YS OO £004"00036400) 3 
END DOLLAR, %001*00036500 ia 
@ ; Fo de tei ae Fee tee eT RR IR II TO tI ato tt ek tik ei 000 36600 353@ 
Bl) sabe ope REAR STREAM PROCEUURE ADDRESS Ape oo Pe elt new apes oe bok IL OUSEE 2-5 10) AR ett on en ee ae 
‘ BEGIN SItsa3 ADDRESS? =SI3 ENDS #001 *00036800 ial 
e@ pa eWeek eee eee ei ak hte kak Sk aa ak ik ke cee QO 36900 4@ 
i BOOLEAN STREAM. PROCEQURE GETWORDCAPTR»sWORD)3 OO HOOURFO00 ~=—C—s—Ci‘C OU S 


oO II III II II IG IIIT I IOIGIUIGI I III III IO IO III toiniick ini 00037100 


@« % SCANS CARD IMAGE AT ADDRESS "APTR" FOR ALPHA STRING 2001=00037200 

(? ___._# RETURNS A VALUE @F "TRUE" TO GETWORD AND FNOD OF RECORD... %£001°00037300 

(: BEGIN LOCAL SV3 LABEL SCNPEXIT3 %001°00037400 

e@ SIZSAPTRS SIt=Sl+53 S1tsSC3 %& STARTING ADDRESS %001"00037500 
MO 2 etiam OOM Caen tl Ne te pte oes te a len ally tie aie tie Sao ROCIO OORTAOO 20 oer oe: 

IF SCSALPHA THEN yUMP GUT 2 TO SCN3 %001"00037700 

IF SC=LEFTARROW TREN % END OF RECORD MARKER %001°00037800 


BEGIN 


___ #001"00037900 


TALLY#=43 GETWCRD t= TALLY VUMP CUT 2 TG Exits %001"00038000 
ENDS %001°00038100 
a SL EST 4 ROveee OE ree em Ee en et %002°00038200 
SENt %001°00038300 
OltewOROS OStsLIT"O"s DStSCHRI %001"00038400 
6OCIF SC#ALPHA THEN DS$sCHR ELSE UStsLIT" "); - %001°00038500 
—O3CIF SC#ALPHA THEA SIsmSI¢1 ELSE JUMP OUT)s %U01°00038600 
EXITs ¥001"00038700 
__ SvtsSis SIts_OC Svs DIt=aPTRs OStswoSs #003-00038800) 


oe 7 Pe ee a eae) . cia De tik ee ea A Se or Rene reee r) P| 
END STREAM PROCEDURE GETWORD3 %001*00038900 
@ JU ICICI IOISIIIIOISIOISISOISIIISITOIISIISIIOIJUIS ISIS OIG SGI i eine iH 00039000 q 


Ppa BOOLEAN. STREAM PROCECURE UNGQUOTE (Ne APTReB DE 


~VALUE NeAPT AS OO ROO OO0dITOO 


A JUICES IIUIIOIISIIISIOII IOI ISIS IIDIOUIIIIUIIGIIOIUIIGIGSIUOITE IO Ibi ier eatin 00039200 
eo. ® SCANS CARD IMAGE aT ADORESS “aPTR" FOR QUOTATION MARK %001"00039300 
( Poa RETURNS A VALUE OF TRUE" TO UNQUOTE IF QUOTE IS NOT PRESENT 2001=00039400. = 
l4 & TRANSFERS UP TO "N" CHARACTERS FOLLOWING QUOTE TO ARRAY "8" %001"00039500 
@: BEGIN LABEL EXIT; %¥001"00039600 
J SE SAPTRE OLSEBS OStSLIT"O"S ist Cal eet a ns tool AO LOU OB GTO Oem. cons vy ope ity > ipl 
! 2c40¢ %001*00039800 
ee: IF SCSLEFTARROW THEN %001*00039900 
Ba ea Be yeh of MERE IN cl tata actor Bee Netra oe eh chy ittinacanticinacemecue a EOOLROO0G00NO . - .. . 
10 TALLY2215 JUMP OUT 2 TO EXITS %001"00040100 
@;: ENDS %001=*00040200 
——— coed FO SCE" THEN. ~&PICK UP THE CHARACTERS AFTER THE QUOTE = gool=00040300 A ieee hi aaa 
BEGIN ; %001*00040400 
@ i} Sl*eSi+13 % SKIP OVER THE FIRST QUOTE %*001*00040500 
aan a NCR SCENT TREN OSESL IT" " ELSE DStecHR)s = ge nOOMOKQO iw! 
ng JUMP OUT 2 TO EXIT; %001*00040700 
Or END3 %001"00040800 
pS 0oteonosngga 
a EXIT: %001*00041000 
@: UNQUOTE 8 TALLY3 %001*00041100 
END STREAM PROCEDURE UNQUOTES a coe BOOL*00041200 
JUEGOS IIIS ICICI IOUGSIISGIIISOO IG III IIOODE ia iH 400061300 
® PROCEDURE ERR(N) VALUE NS REAL NS %001*00041400 
2 Oki cceeccene a ee TARO Rk a RI OO IU OOO IOI itt eed tok fe tee 0.0.0 4450.0. Speck De tne eis as oo be 
F BEGIN %001*00041600 
@ IF N20 THEN % BAD COLLAR CARD 2001700041700 
ae QPTIONSBUILTSSUSERPRESENTS=FALSES CLEAR (USER, 2993 %001"700041900 
>@ END BAD DOLLAR CARD; %001=00042000 
3 a WRITE CLINE MEN - 2400... 
= WRITECLINELOBLIJ 210s AL#))3 %#001"00042200 
g@» END ERROR PROCEDURE} %001*00042300 
nn Reeeete eee eae eneeenenee00042400 
4 PRUCEDURE WRITEUSERS %001"00042500 
e 38 BAIS ICIS IU II UISIISISUISISISII TOI IODC IO aoe i heat 00042600 
a BEN a ee epee es wan ne ONEONNNZ7ZON = 
97 USERWORD I= TABLELUSRINDXIssUSERCODES *001"00042800 
e+ TABLECUSRINDOX+19.033315)3 sUSERLOCS 00100042900 
ej... WRITE CUSERS CTABLELOC J» 305 TABLE(*])3 poe Saas ia Dy See et ce tie BOOT OOUFTI00 2~. +2. 
" WRITECUSERSCUSERLCC1430eUSER Le] )a 200100043100 
@ i END WRITE USERS 001700043200 
Ee Atasanieseeesstestivsssssetersrestigisisseeseteeeeeneeneuenneeanenet200043900 
PRUCEQURE BUILOFILE3S %001"00043400 


FI III III dE EERE eee eeee 


Be SEEING 3s Fe Baek oe hia Je et oe Peles TD oa! 
NEW DISK SERIAL [202600] (25302 300*SAVE 999)3 


PILE %2001"00043700 
USERCAIS=NEXTOPENS=30; %001"°00043800 
FILL NEW WITH "USERS s"CANDE "se  _ a tee OLE OO OE S909. . 
DO BEGIN *001"°00044000 
WRITECNEWs302USERL*))3 CLEARCUSERS29)3 4001"000441 00 
END. UNTIL USRINDXteUSRINDX+4 GIR 293 __ aE OONKGIZOD 
LOCKCNEWs SAVE )3 %4001°00044300 
END BUILDING NEW FILES %001"00044400 
SHCUEECUOUHUOHEIUIIUCIEIOIUHOHIIOUUHUU HUUUHUO TEE nlnoreitiiieint iret h00044500 
PROCEDURE SETOPTIONS3 %001"00044600 
TEI III TIIOISISIOUIIISOIIIIOOOOODOUDEE Hii innk ii tern i atenen nO 0044700 
nc GUNG cra 8 ere pe tee Stet en Sate 4901900044800 


¥#### 00043500 


4001900043600 


Data Documents/inc. 


@' e 
| FOR 183293565758 DC & PASSWURUD»CHARGE PHONE s TIME »CUMPILERS %001=00044900 
eo. BEGIN %001=00045000 ® 
eee ee MATCHCOPTIONSEI 120) ERSE USERLI J sOPTIONSC IVs 00400045100. = 
(i END FOR3 2001=00045200 ; 
@» MATCHCOPTIONS(C4]» C) ELSE MOVEC@sOPTIONSL4) »USEREZ4] )3 &%NAME %001*00045300 2|\@ 
ol _._MATCHCOPTIONS[ O91» ©) ELSE MOVE CIsUPTIUNS( 9)» USERL9O] 23 SVRBWRO ZOO0s*00045400 «sl 
i MATCHCUPTIONS(10)50) ELSE MOVECLSUPTIONSCIO],USERCINJ)$ &VRBWRD %001"0004550U 4 
e: END SET OPTIONS; %001"00045600 1@ 
i I III CIO OIRO IOI OOOO OOOO IOI IO IOI OI ie IIIs tote tee tte 00085700 6 
: STREAM PROCEDURE SETBITCBITNUM*sWO)3 VALUE BITNUMS %001°00045g00 : 
S 8 BOI III II III III IDISIUIIGIOI IOI OGIO DO ei ioiiciintes ict 00045900 |@ 
Ps ie Se De ced BEGIN LOCAL Na sei Ne ela a Sse resets, —B001=O00U6000.. 2 2 : 

i ST#SLOC BITNUM} SIt=S1463 DIs#LOU Ns OL=D1+7s DSt=CHR3 %001°00046100 i 
ee" DIt=wOs NC2CSKIP 32 DB))3 SKIP BLTNUM DBs US?®SE13 %001=00046200 1@ 
Pah on ~ENOD STREAM PROCEDURE SETRITS Cee Rad tases teil ___ £001"00046300 0 2 
hs LRA ARERR ARERR RAR EM ERE ERE WER Ee EO004EGOD 13 
@ PRUCEDURE READUSER3 %$001*00046500 @ 
Pe pot Oe Fa IOI OUI IOI UI II IUCr ott tkt eee eae ee 00046600 olathe bade taut ntatit tate ia My 15) 

18 BEGIN LABEL READIN,OKS %001"00046700 ei 
IF NEXTOPEN = 0 TKEN % FILE NUT UPEN %001=00046710 "@ 
ee ... BEGIN. acces Sao ane aa ON, et a ay Eocene ale eat ee aia eee a OU OOOO Ones: 5, tule erence te oo ee as be 
te READCUSERSLO]s5>BL¥*))}3 %001°00046730 , ia 
@” NEXTOPEN 83 BC1]3 %001=00046740 24 @ 
a eet oe ned NOB iii Geeta tet eecltae nl dans nies em ot Sat ch e ORO OOO R260), a1. cee Ja. oat eee he ot ee Z 

IF UNQUOTE(7»APTR»USERCODE) THEN %001"00046800 22 
BEGIN #001=00046900 21 @ 
belt tiled an ERRCO)4 ERRC2)3 2. BAD DOLLAR LARD» QUOTES MEGUIREO 8  gOOdeG0047000 24 
5 END %001=00047100 2 
ELSE %001*00047200 21 @ 
Spelt sig ae OLN GAT SE C0 et at a ee es OT SO OUUS S00 el Neola ee tt yo ee ee oe 2 
4 WORD ts USERCODEs USRINDXisezs %001#00047400 28 
TABLELOC22CCWORDe (6821)+WORDe L27821))M0D 29)+43 & SCRAMBLE *001"00047500 24 @ 
eh ets SR EN ott eee a al ee oto es ee BOOP OO OU ROCs 5 tos ts a tae 
READCUSERSCTABLELOCJ230sTABLEL(*])3 #001°00047700 : P 
DO BEGIN %001°00047800 . dl ® 
Ronee USRINDX3SSUSRINDX423 ted eScc Dhieaies At We PONY oe ON Sai ae __%2001"00047900 | esc Mee rca ee ea eo eee ee 
MATCHCTABLECUSRINOXJ»WORD) USERPRESENTS=TRLES & ALREADY PRESENTOO048000 es 
END UNTIL USERPRESENT UR USRINOX GTR 263 #001-00048100 31@ 
ee NOT USERPRESENT THEN & NOT IN THIS BLOCK _#001700048200 | Sache in Stee Ndedteca nee eee ee, oe a3 
IF TABLEC1]+¢€182!15) NEQ O THEN % LINK TO NEXT SEGMENT %001=00048300 37 
BEGIN %001"00048400 31@ 
ee TABLE LOC Be TABLECL I £18815)3 & LOCATION UF LINKED SEGMENTZ00{#00048500 ss iy 
USRINOX t= =25 GO TO READINS *001"00048600 
ENDS ¥OOL=00048700 
Po USE RPRESENT THEN USERLOC SS TABLECUSRINDA+1),033315)] ELSE %001°00048800 
: BEGIN % MUST BE NEW USER, © %001"00048900 
USRINOX $= #45 [3203 FOUNDSEFALSES %2001"00049500 
ee eM IF FOUNDSSTABLECTII2=0 THEN USRINDX82] _4001"00049600 
UNTIL FOUND OR [:=J+2 GIR 283 %001*00049700 
IF FOUND THEN %001*00049g800 
ise eaent na) Sethe coe ECO | . ce IF "00049900 
OKs NEXTOPENt=(USERLOCS=NEXTUPENJ 413° %001"00050000° 
BLANKCUSERNAME21)3 BLANKCPASSWORD20)3 ° %001*00050100 
coves von ome MSERC 29] be TABLELOC & USRINDOXC16233%19)3 & BACK LINK #001" 00050200 
ENO %001"00050300 
ELSE 2001=00050400 
BEGIN & NC ROUM IN THIS BLOCK | ete 2001*00050500 


TABLECLI]¢C16815)8aNEXTOPENS %& LINK TU NEXT AVAILABLE SLOT 00050600 
WRITECUSERSCTAGLELOCI» 30s TABLEL#])3 % REPLACE SCRAMBLE BLOCK00050700 
on CLEARCTABLE 229)3 TABLEL2S Ti seORTABLELOCLIB23311595 2 BK LNK 00050800 2 


Data Documents/inc. 


® ee 
TABLELOC s= NEXTOPENS USKINUX $= Of %#001*00050900 
® NEXTOPEN t= NEXTOPEN + 14 % INCKEMENT FILE SIZE %001"00051000 e 
ances eo WRITE CUSERSLTABLEL OCI)» 3UsTABLEL +I) SWRITE I CASE OF ERROR 00051100... 

y FOUND t& YRUES GO TO UK; %001"00051200 , 
@: END3 ¥001"00051300 1@ 
3 fees ee eae poppe ND NIN Sa ce a et ol a ee BOO PWONOST AOD ot dein a 3 
4 END IF WE HAD A USER CODES *#001"00051500 : 
@: IF USERPRESENT THEN READCUSERSLUSERLNC1»30,USER[*)); %001*00051600 /@ 
a US ERPRESENTISCFOUND OR USERPRESENT§ oo  goteogesiz00. .t—~S Beatie ects et Se Ei eee oe er, 6 
a IF USERLOC LSS 30 THEN ERR(4)3 200100051800 ; 

@ : ; ALTERED t= ALTERED OR USERPRESENT? 2001*00051900 /@ 
Os Pate nila a ie NI eR AO SERS oie ee ny eo ee oat nee enn, EON ToL 016 Eo WW 010 © mane ven ae : 

a JU CII SCI UICISIISISIIIIOIGISISOIIIGUIGISISGITIOIIUIOISGIOIOUI ISO IIOIOIIOI IOI iooiiei# iii 00052100 nM 
er PRUCEQURE REMOVEUSER} %001"00052200 1@ 
bai PELL SRSARSSSALLERLSALL LALLA TAREE ELE ELLER TET AKEARAAA RENE A eR OO0D2ZINO iG 
ay i BEGIN : %001=00052400 bei 
eo} %® ROUTINE FOR REMOVING YSERCQUE FROM USERS/CANDE FILE 400100052500 l@ 
——————-.-.-A_EXPECTS CARD IMAGE OF THe FORM! §$ REMOVE "USERcODe™ Ah OO1800052600 2 15 
ie REAL USRCODE sLASTUSERINXsLASTABLELOC} *901"00052700 6 
@. LABEL FOUNDIT*EXIT»READINS ¥001°00052800 1@ 
Pn sted See ot NOR MRD ica pte Cale nig Pabst iter a ee acy, a nein BO OLMOOISZ90O fi 
'9 NOTINFILEC "REMOVE IGNORED» USERCUDE NAOT IN FILE"),» . %001*00053000 ba 
@” INVALIDLOC(C REMOVE IGNOREDs INVALID RECORD AODURESS")>» %001=00053400 bd @ 
2 nnn NVALIOLINKCUREMOVE IGNORED, FILE NOT PROPERLY LINKED")3 — gootmQo0san0g0 i wt! Sot Ea a 9 Sina Sot ee eur 1 eee ae 24 
pe IF UNQUOTEC7*APTRsUSRCODE) THEN %001°00053300 2 
@ BEGIN #001°00053400 3 @ 
ane ERRC!DS GO TO EXITS & QUOTES REQUIRED AROUND PARAMETERS %001"00053500, i ( ss SE tees is Rett, ye ers 24 
2 END3 . %001"00053600 2 
@ x TABLELOC#=(CUSRCODE,CO8211+USRCODE,C27821]) MUD 29) +43 %001°00053700 2 @ 
csc EN 3S cco 6 tein deere Sh ter Ml Naval bade e NO. ky pee et teed eit to OU em BAO ici toe nn lie a oo eter peat wal es [2 
e READ(USERS(TABLELOC]»30*TABLEL*])5 & GET INDEX SEGMENT #001"00053900 ; 2 
@ FOR USRINDX#20 STEP 2 UNTIL 28 Du %001"00054000 24 @ 
pH — -- MATCHCTABLE LUSRINOXI2USRCOOE) GO TO FOUNDITS == gO OOUSaIO0 = i wt pes ia, a eee aed 
at TF CTABLELOCISTABLEC1),018815)) NEQ O THEN GO READINS & LINKED %001=00054200 31 
eo WRITECLINESNOTINFILE)3 WRITECLINELDBLJ»10sAC*1)4 GO EXIT %001700054300 2 @ 
peer seae SUI EEA a pe i a nee ae aah Ade Bing kc oh a ke egies ol aol Stns ROO OOOO SAO Oi te ao eos OE oe eo Ae ee 39 
34 VSERLOC t= TABLECUSRINDX4+1).033515]3 % USERS RECORD LUCATIUN %001*00054500 
Ya IF USERLOC LSS 30 THEN %£001"00054600 @ 
| eee pe EIN oa caer hv Pied ta teen ae sa ata naele dy ead Oa Oo Sate aoe OON WO KOS POG: nts, < ane ce. Ss eg _ 
| WRITECLINE*SINVALTOLOC)S WRITECLINELDBLJ510%AL*1)3 GO EXIT$  %001-00054800 . a7 
@ END3 4001*00054900 4@ 
ee EF NEXTOPENZ0 THEN % FIRST CARD» GET FILE LE NGTH OO $000"00055000 Ba Te i SS eee et is 
“d BEGIN | %001=00055100 0 
@! READ CUSERS(O)s5sBC#])5 NEXTOPENS=B(4)3 %001°00055200 1@ 

ecg eas ale a CE Be at a as ge a ROO 0005S F005 em a ae ye es ieee 
IF USERLOC = NEXTOPEN*1 THEN & THIS IS THE LaST RECORD %001"00055400 
BEGIN 3 | %001"00055500 e 
an TABLECUSRINDX] 83 TABLELUSRINUOX+1) 33 07 es re a ac COMIN OOO prc ole ihren te Oe nt ee et ie ge ee 
WRITECUSERSCTABLELOC]» 30*TABLEL#) 3 %001*00055700 
NEXTOPEN &® NEXTOPEN =13 % DECREMENT RECORD COUNT %001"=00055800 | 
wo GO TO EMITS 000055900 = a 
END} %001"=00056000 
REAQCUSERS(NEXTOPEN"1],302USERE*JI3 ® GET LAST RECORD IN FILE %001"00056400 sl @ 
—___________IF_BOOLEANCUSERE29 3001:13) THEN % LAST RECORD IS A SCRAMBLE BLOCK 00056 200 Sree Pee ee es.) 
BEGIN %001*00056300 
IF CI$sUSERC29).018:15)) = O THEN ® INVALID LINK £001*00056400 =| @ 
b Sere a hte Poo: tes BEG ENS E a ate ral aha WON TSOU0SOSO0s <2?) hf ee 
WRITECLINE*INVALIOLINK 3 WRITECLINECDGLA 610s AL*I93 GO EXIT; 000564600 


END3 4001"00056700 
__. TABLE CUSRINDX] 3303 TABLELVUSRINOX+2),0338151%=035 % REMOVE USERCODE 009056800 


oe ® 
| WRITE CUSERS(CTABLFLOC)» 30*eTABLEL*J)3 & REPLACE SCRAMBLE BLOCK %001°00056900 
eo IF TABLELOC=NEXTOPEN@1 THEN &% USER IS IN LAST BLUCK %001=00U57000 @ 
Rest aie ine, 5 on BEGIN: crag abe » ioieace Sem esms dite ed Mb aMale Loe ty mck nde banedeineme teres ete i SO OTAOOOUST TOC. on. faa, a ae ete 
ai USERCUSRINDXJ2303 USERCUSRINDX41).033%159)t203 $001"00057200 
@: ENDS %001*00057300 1@ 
Ile Dias sete, ee at ho IRR SO UE OO, alas Mire doen ta at el ona alte teateh ca bet oe AS Jota Mer ine lgiaiaees Bid ee Sek ee OO RMO OOS TAOG cfc hn cet ce lel eter ha ee Fede St HE eet : 
ia DO KtsK+#2 UNTIL USERLCK) NEQ O OR K GIR 245 %001°00097500 
@” IF K GTR 28 THEN % EMPTY BLOCK £001°00057600 1@ 
Ce cect of ws FEES Nek on Fon ee et oe ee a els ee 8 ek ad ae ee ee ee a ee OO OOS TT 00m 5.8; ee eRe ae eee 6 
/ USERLOC 83 03 NEXTUPEN ¢= WEXTOPEN #33 %001"00057800 ? 
r END %001=00057900 10 
Pee ELSE 000k BOOO 3 
he WRITECUSERSCUSERLUC]»30,USERC*J)3 % MUVE LAST RECORD UP %001*00058100 ‘is 
ee: NEXTOPEN 3 NEXTOPEN = 1% & DECREMENT FILE SIZE %001700058200 1@ 
Me . READCUSERSE LT)» 30*TABLEC#))3 @ GET PREVIUUS SCRAMBLE BLOCK  %001"00058300 000 12 
13 TABLELIJ.C1BLi51$SUSERLOCS % NEW LOCATION FOR LINKED BLUCK %001"°00058400 [ 
@ ‘ WRITECUSERS(C EJ) s302TABLEC#])3 % REPLACE SCRAMBLE BLOCK %001*00058500 @ 
ae Oe END % IF. LAST RECORD IS.A SCRAMBLE BLOCK O00 UU Ug goteondsa600.. Neo et, Ape eee ee ee tty 
15) ELSE %¥001*°00058700 hi 
@” BEGIN % NOT A SCRAMBLE BLUCK %001=00058800 Whe 
NB eee es eee ee wb ASTUSERINX. £8. LSER( 29), CI Bt15d3 2 LOCATICN IN SCRAMBLE BLOCKS OOL#=O0OSBQOO cee eceeee cence nee ei 
Bs LASTABLELOC t= YSERL29),L33t15)3 & SCRAMBLE BLUCK LOCATION 400100059000 ia 
@” IF LASTABLELOC = 0 OR LASTUSEKINX GTR 28 THEN % INVALID LINK %001"00059100 1@ 
Pei Ne et ee, he Re Ni bo Suclrs ale te a one Madara eae tt tS, ile ae te whe Sn ad Nea Peet oe e nO OO RO OU MONO et fic gd in ee haan oS ae ee eee a 
ae WRITE CLINEsINVALIOLINK)S WRITE CLINE COBL4Js 309AC*#I)3 GU EXITS 00059300 : 
@» ENDS . | $001*06059400 3@ 
ie, hee eee eee, TABLECUSRINDXJ 2204 TABLECUSRINUX+ 1) af a3t15disas # REMOVE USERZ001"00059500 0 I 
ee. ee IF LASTABLELOC NEQ@ TABLELOC THEN % DIFFERENT SCRAMBLE BLOCK %001"700059600 2 
x BEGIN %001"00059700 21@ 
P ee ee WRITE CUSERSCTABLELOC 1] 30sTABLEL*I)3 2 WRITE CURRENT BLOCK %001"00059800 2 
2a READCUSERSCLASTABLELOC )»30,TABLEL*J)5 % BLOCK FUR LST RECROD 00059900 28 
ae ENDS %001°00060000 
Me PABLECLASTUSERINX#+£ ToC S32 TS IFSUSERLOCS & NEW LOCe FOR LSTe RECs 00060100 20 
Re WRITE CUSERSELASTABLELOC 1s 30s TABLEL*])3 % REPLACE SCRAMBLE BLOCK 00060200 
@” WRITECUSERSCUSERLUCJ»30,USERL*#])3 % MOVE UP LAST RECORD 3001*00060300 
ee NEXTOPEN $3 NEXTOPEN 913 2 DECREMENT FILE SIZE 000 eOO1e=o006O4ad. 
44 ENDS % IF NOT SCRAMBLE BLOCK #001=00060500 
@« ALTERED t= TRUES %001"00060600 
aN sgt MUI Cat ew ceca UN RA es Tee ce ges aati te coe, Ne eel EL ie a eel OO PSO ORO POC. 
ga ENO PROCEDURE REMGVEUSER; 2001*000608C0 
@ - SE fe ie te ae te tee i i i R  I IORRIO to a aioktotk tk ee O00060900 
po PROCEDURE LINKUPS OO 01900061000. 
FM ee te ie tke eR RI II IO IOI FOI III IG IGG iinet 00001100 
BEGIN LABEL LINKS £OCL=060612C0 
RROUTINE TO ESTABLISH LINKS. FROM USERS/CANDE RECORDS TO INDEX. TABLE 00061300) 200 cee 
ZROUTINE EXPECTS To FINO CARO IMAGE OF THE FORM! & LINK ¥001"00061400 
TABLELOQC t= @3 %001"00061500 
ete et es see SRE GPA ee 1 Es tne lie re et ei re ei eer le BOOT OD OU BEB OD vn cee 
READCUSERSE TABLELUC S=TABLELOCt+1]5 30+ TABLEL*1)3 %001*00061700 
LINK: USRINDX t= =23 %001"00061800 
Bi Seta eee DE BG IN ae cc ol = Bate a es a EP de em _$001"00061900 
IF TABLECUSRINDX$SUSRINDX42] NEQ O THEN %001*00062000 
‘IF USERLOG $s TABLECUSRINOX+1).033215] GEQ 30 THEN %001 "00062100 
chases tn 2, cash gant epee SA Not es eae oe St et ERE a Cee: 0151 061619 1-E- 01: eee ee ee 
READCUSERSCUSERLOC 1s 30s USERC*I), %001=00062300 
USERC29)] t= TABLELOC & USRINOXL 464393991573 £001*00002400 
WRITECUSERSCUSERLOC Je 302USERLC 4) 24 = %001"00062500 
END; %001*00062600 
END UNTIL. USRINDX & 283 %001"00062700 


I CT TABLEC13.018315]) NEQ 0 THEN % LINKED SCRAMBLE BLOCK %001"00062800 __. 


Bata Documents/inc. 


BEGIN %001*00062900 


° READCUSERS(CI)» 30s TABLEL*))3 %001=00063000 e 
Bie Sate cath oat, oon Sal Sn NR Rite eta cA aoe 2 oe lads teeta ls Sd ite oe ol aye cnet eR OOOO UR ALOU S. Suerte +, tplitan aout onceaese sete pee Pg 
z END3 . %001=00063200 ! 
@. ENO UNTIL TABLELOC = 293 | 200100063300 10 
So END. PROCEDURE LINKUPS Baik oa ee Ped ot a ee OOD OO CURB OO eke on cacuieninaied pele td et BS Se : 
7 RN KNEE ERE RHEE RRR ERR ERM RR ERA RHR HHH EOOUOI500 4 
@: FILL CMPSC*) WITH O,» %001"°00063600 |@ 
eo BASIC Me MALGOL Oe "COBOL "es "FORTRAN"S"TSPOL "»"xXALGOL "s = %€001"00063700. ....s—s—isssia eeeeent eee eee . 
1 ee ee ey oe eee eu be a %001°00063710 7 
| FILL VRBSC#] WITH 0, 3001*00063800 |@ 
: [eeuntonee _.. "bYST  “e"RUN  “e"SAVE  "s"SEQ A MEXECLTE"S "D0 Dot ca, MOL OO COSI OO: en, oe eeitets cok eu ls ee ee ee es ae et : 
Ww “OM AKE Wy "LOAD "se "COMPILE™s "REMOVE "s "CHANGE " s"RENAME "» #001"000640C00 
"FILES ca] es"WHATS " »"*CREATE " e"HELLO " "TYPE rt s"BYE , %$001=0006410y i@ 
"COPY Ms "MERGE 2 RESEO eMDELETE “»s"APPEND "s"ADD Ms 00100004200 a deen ee ee ia 
“TQ #,9SS "GUARD "S"LOCK  "s"UNLOCK "»"TAPE ", ¥001=000643006 
"PRINT "“s"PUNCH e"CHARGE "s*SCHEDUL"s "STATUS "s"STUP "» %001"00064400 4@ 
a ATEME Me SUPDATE womeee eoneee inh ANC Ne MRMERGE Me 6 68001"00064500 ss Me 
"DISPLAY" » "SET "S"RESET “s"MONITUR™S "SSFILE “» "EQUATE "pe 00064600 
"PUBLIC "3 00064610 \@ 
ALOT 820s AOTSADDRESSCALOI)S FIRSTCARUZ=TRUEs CLEARCUSER»,29)s = 8001"00064700.. ts 
i NEXT? %001"00064800 | 1® 
READCCARDp10,Al¥) CEGF)3 AC1O)ssREALCNOT FALSE) % END RECORD MARK %001=00064900 ee 
pp omer? <1. ioe eae 05 Re fe Plastaet cM a Pecsth oleate al Gian dj eens OO POORMIAS OUD we. sicqsuhou atplatcasun wien el Lait oe Sede 
i IF GETWORDCAPTR»WORD) THEN GO TO NEXTS % BLANK CARD %001°00065100 le 
IF DOLLARCARD?=pOLLAR(A) THEN %001700065200 a 
+---- --BEGIN. 2. DOLLAR CARD READ ge cen me cas eet cuneuniimintman awe wats sate vats anni Q01200065300 , aa P tee rad ET eatin dare ae ee, ya he SO ete Sl 
i IF USERPRESENT THEN WRITEUSER *001700065400 : & 
ELSE %001"00065500 . ii 
LL OPTIONSBUILT THEN MOVEC30,USERZOPTIONS)$S OO OOD 56O0 occ ee 2 
OPTIONSBUILTS=USERPRESENT2=FALSEs CLEARCUSER?® 29)3 %#001700065700 a 
USERCODE ts * "5 %001"00065800 s 
etre ec ye MAT CHE NORD s MUSE R oc 5 9 je ces toe Ste cn 5 a ONT NS 800-. I hice Bi ae eee ees ee a 
BEGIN %001"00066000 le 
READUSER$ SETOPTIONS3 %001700066100. ie 
a Pee ht th eal END .. sevice ol ecient," Gi eae Mle ay Geeta a oo i ER act ecco te ae a Aisa Ona l tobs See at BOOM OOO BA DOO osc) box O82 285 ha a pet Ee pe le es fre os es 
ELSE #001700066300 ‘ 
MATCHCWORD,"OPTIONS") GPTIONSBUILT %= TRUE %001=00066400 
eet a le 5 ty RNS Zr han 8S cedure lileaia a aed mace Oa Nee yin tes ii shang th tte nds Sire ot a BOOT OOO CO ROO ae Ge ccc! a2 akt 
j MATCHCWORD » "NEW ") TF FIRSTCARO THEN BUILUFILE ELSE ERRC1) %001 00066600 
ELSE %001*00066700 
LE Seeeene nw MATCHCWORDs "PRINT "2 PRINT OO a 80010"00066800 
ELSE %001"00066900 
MATCHCWORD»s "REMOVE ™) REMOVEUSER #001"°00067000 
Ses rer I ee i te tate cae Coe get es a cicada Bok BA SN wan eS 2003"00007100 = 
. MATCHCWORDs "LINK ") LINKUP 2001700067200 
ELSE %001"00067300 
[sean omnes _-ERR(OJ3 % BAD S$ CARDe ee 00E00067400 
FIRSTCARD t= FALSE3 %001=00067500 
END OOLLAR CARO ; %001=00067600 J 
Pena anETT! 24 C~ | ee ree pat i Pa Ste Pe __ €001*00067700 
BEGIN % NOT A DOLLAR CARD, | %001°00067800 
MATCHCWORDs "USE ") % OPTIONAL WORD %001"00067900 | @ 
see BEGIN ASE thes ts eet, sista atl eis Eg eg te ee ee OTR OOUGEOOO. 
IF GETWORDCAPTRsWORD) THEN GO TO NEXTS %001"00068100 
END3 %001°00068200 “| @ 
ae __MATCHCWORDs"PASSWC CR") LIF _UNGUOTE(7» APTR» BESS WOR 0 HEN EAN Cae 00068300 
ELSE ELSE . %001"=00068400 


MATCHCHORDe"NAME =") TF: UNQUOTECAS» APTR» USERNAME) THEN ERRC2) %" 00068500 
sie LS ES ates ha a ee ie cit ROOM OOUGEO OO en tna: 
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MATCHCWORDs "TIME ") BUILDTIMEWURDCTIMEWORDSA) 4001*00068700 
ELSE %001"00068800  ] 
_MATCHCWORDs "CHARGE ") TF UNQUOTEC/s AFTER» CRARGEWORD) THEN ERRC2) % " 00068900 _ ee ee er eel Metre eee eee ee ee 
ELSE ELSE 400100069000 . 1 
MATCHCWORDs»"REQUEST™) CHARGEWORD t= © %001"°00069100 . 1@ 
ELSE stl alr, cithewdts ein lS Teoh aieotes co ede Se cen ANG et: cea ete Wetec UO BOUL ON 200 loi - nace. oe a ieee Sates de ee See hy oe te eee lS 
MATCHCWORDs "NO | ") CHARGEWUORD t= "94 " %001"00069300 4 
ELSE #001"00069400 1@ 
cota we vee MATCHOCWORDs"LANGUAG™) (0 wow 001900069500... .. ree tey bh Sea cee eee rere creat See a SRR LON RPT Fs 
2 BEGIN %001"00069600 7 
" COMPILERS! %001*000609700 ‘|e 
1 OC GETWORDCAPTReWORD) THEN GO TO NEXIS. % END OF RECORD _%#001"00N09800 | 9 
hy MATCHCWORDs"NOKE 9") COMPILENKWORD 3= © ELSE %001"00069900 ie 
BEGIN %001=00070000 1@ 
wo FOR Ltsd STEP 2 UNTIL NUMOFCOMPILERS Co gol so0070100 | LT Soci ci 
vs MATCHCWORDsCMPS(1)) %001"00070200 i 
7 BEGIN %001*00070300 W@ 
Oh ot thecn A —. SETBITCITeCOMPILERWORD)§ (0 ent eee MOOL"00070400. | Bi nach ube ee gee ea ANE st xe "8 
F GO TO COMPILERS; %001"#00070500 i 
o END; %#001"00070600 "\@ 
Ct JERRC42)3. GO.TO.NEXTS & NOT CUMPILER NAME ee RUOLMOOO7U70O. eyes eases cette Saeco ee Se Ee "8 
D ENDS % IF A COMPILER NAME %001"00070800 
Fl keitedeo. By deel! JESS Es ns dosttet, PROOUSOCO7100G lc. eek oe. eee cio at ei Fe ate a 
22 MATCHCWORDs"PHONE ") IF UNQUOTE(/sAPTRsPRONENORD) THEN ERRG2) & 00071400 : 
24 ELSE ELSE 2001°00071200 1@ 
24 ee MATCHQWORD* "VERBS "2000 Me Seine rceiet can eee IE OOOPR SOG God... «ct mien yet) = : _ 24 
et BEGIN %#001"00071400 : 
28 VERBS | %001"00071500 |\@ 
p ee ee LF GE TWORDCAPTReWORD) THEN GO TO NExXTs oO OTH O0071600 2 
bs MATCHCWORDs"NONE ") CLEARCVERBWORDs 4) ELSE. *001°00071700 
a BEGIN €001=00071800 
i withledee tira eeeeeR GR VERT STEPS TUN TIE NUM VERBS tio este eg ele YOOTMOO0 T1900 Slane. 
a1 MATCHCWORDs VRBSE TJ) %001=00072000 
eo” BEGIN %001=00072100 
BS meer tenner nee ae we SET BITC Te VER SWORD) bo cect cme we come we vevvumen nee ot at manner tne eh OOL9 00072200. .. 
a GO TO VERRSs 2001900072300 
38 ENDS 2001"00072400 
-ERR(5)3 % NOT VERB NAME GO TU NEXTS 0 eee oon O01"00072500 
ENDS % IF A VERB NAME %001"0G072600 
ENO % IF VERBS 4001*00072700 
MELAS Ee. cct ney Gaiame meget Cn osttge me ue crate aces oie ot a cee eaapuee eh oat eer OU OOO LP BOC. 2 5: fee fos, facee ss 
ERR(3)3 % UNKNOWN CPTION 200100072900 
END NOT DOLLAR CARD} %001°00073000 
TROT ONES cet rps yeste ditch ut Nese line iden ctu atest mbaalie caeieuk sche Nina 2 COOL ROOMY AOU x « 
EOFS %001"00073200 
IF USERPRESENT THEN WRITEUSER; % WRITE REMAINING SEGMENTS %001"00073300 
_IF ALTERED THEN % UPDATE RECORD COUNT AND ALTERATION DATE %904"00073400 
BEGIN %001700073500 
READCUSERSCO)s29sUSERL*J))3 & GET SEGMENT ZERO %4001*00073600 
woe MSEROE) Se NEXTOPEND: = 8 ie A ee ie Ee ee OO LR OOC A700. 
“USERL2]°8TIMECS)3 %001=00073800 
WRITE CUSERS(O)»30-USER[*])3 %001700073900 
_ CLOSECUSERSsSAVE)S OE MONNTHOOO 
ENO? % IF ALTERED %001°00074100 
END USER, 001200074200 
ENUZEND, LAST CARD UN OGROING 1APE _ 99949999 
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LABEL OOQOOOGOOOPRINTEROOI75100CC EX OBVECT/REAUSFILE SOURCEFILE=SYMBOL/USERSENDe 
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